home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinME Start Menu 3.xpl < prev    next >
Text File  |  2002-01-03  |  5KB  |  136 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows ME"
  5. "NAME"="Start Menu Options"
  6. "VERSION"="4.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="00001"
  9. "TEXT 1"="dⁿdel dⁿ"
  10. "DESCRIPTION 1"="Programs Scrolling: In Windows 95/NT, if the Start Menu was too big to fit vertically on the screen, multiple columns were used. In Windows 98 and above, the Start Menu become scrolling. If you would prefer to see your Start Menu in multiple columns again, disable this option."
  11. "DESCRIPTION 2"="Programs Context Menu: This allows you to view a standard Explorer context menu when clicking with the right mouse button on an entry in Start->Programs. Note: disabling this will also disable the ability to use drag & drop to move the items inside Programs!"
  12. "DESCRIPTION 3"="Start Menu Context: If this is enabled, a context menu will appear when you click on the Start button with the right mouse button."
  13. "DESCRIPTION 4"="User-created Folders: If this is enabled, extra folders (like the Cascading Control Panel) can appear above the Program entry. When disabled, these folders will be hidden."
  14. "DESCRIPTION 5"="Personalized Menus: If this is enabled, 'Intellimenus' will be used on your Start Menu, which hides the items you don't use very often."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="'Multiple Columns' setting from Tom Simpson [thomas@mail.xenafan.com] - thanks a lot!"
  19. "COMMENT 2"="Thanks to Ken [k-o@cyberdude.dk] for the "no drag&drop" notice."
  20. "COMMENT 3"="Thanks to Dutler, Dennis R [dennis.dutler@eds.com] for the "XP screw up" notice"
  21.  
  22.  
  23.  
  24.       sV_CommonGroups="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCommonGroups"
  25.    sV_StartMenuScroll="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms" 
  26.    sV_ProgramsContext="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu"
  27.         sV_AdminTools="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuAdminTools"
  28.         sV_SubFolders="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders" 
  29.       sV_IntelliMenus="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus" 
  30.  
  31. SUB Plugin_Initialize
  32.  
  33.  '98/2000/ME/XP -> Win98 Special Handling
  34.  Call SetUIElement(1,"Show Start->Programs in scrolling mode")
  35.  Call ReadIt_3(1,sV_StartMenuScroll)
  36.  
  37.  '98/2000/ME/XP
  38.  Call SetUIElement(2,"Show Start->Programs context menu")
  39.  Call ReadIt(2,sV_ProgramsContext)
  40.  
  41.  'NT/2000/ME/XP
  42.  Call SetUIElement(3,"Show user-created folders at top of Start Menu")
  43.  Call ReadIt(3,sV_SubFolders)
  44.  
  45.  '2000/ME (not XP?!?!?)
  46.  Call SetUIElement(4,"Use Personalized Menus (hide unused items)")
  47.  Call ReadIt_3(4,sV_IntelliMenus)
  48. END SUB
  49.  
  50. SUB Plugin_CheckData(ElementIndex)
  51. END SUB
  52.  
  53. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  54.  Call WriteIt_3(1,sV_StartMenuScroll)
  55.  Call WriteIt(2,sV_ProgramsContext)
  56.  Call WriteIt(3,sV_SubFolders)
  57.  Call WriteIt_3(4,sV_IntelliMenus)
  58.  
  59.  
  60.  Call IndicateSettingChange()
  61. END SUB
  62.  
  63. SUB Plugin_Terminate
  64. END SUB
  65.  
  66.  
  67.  
  68.  
  69.  
  70. Sub ReadIt(ITM,PATH1)
  71.  if RegValueExists(PATH1)=false then 'setting available?
  72.     'no setting -> item visible
  73.     Call SetUIElementEx(ITM,true)
  74.  else
  75.     i=RegReadValue(PATH1)
  76.     if i=0 then 
  77.        Call SetUIElementEx(ITM,true)
  78.     end if
  79.  end if
  80. End Sub
  81.  
  82. Sub ReadIt_2(ITM,PATH1)
  83.  if RegValueExists(PATH1)=false then 'setting available?
  84.     'no setting -> item not visible
  85.     Call SetUIElementEx(ITM,false)
  86.  else
  87.     i=RegReadValue(PATH1)
  88.     if i=1 then 
  89.        Call SetUIElementEx(ITM,true)  
  90.     end if
  91.  end if
  92. End Sub
  93.  
  94. Sub ReadIt_3(ITM,PATH1)
  95.  if RegValueExists(PATH1)=false then 'setting available?
  96.     'no setting -> item is active
  97.     Call SetUIElementEx(ITM,true)
  98.  else
  99.     s=RegReadValue(PATH1)
  100.     if LCase(s)="yes" then 
  101.        Call SetUIElementEx(ITM,true)  
  102.     end if
  103.  end if
  104. End Sub
  105.  
  106. Sub WriteIt(ITM,PATH1)
  107.  b=GetUIElementEx(ITM)
  108.  if b=true then
  109.  
  110.     s=RegReadValue(PATH1)
  111.     if IsEmpty(s)=false then
  112.        Call RegDeleteValue(PATH1)
  113.     end if
  114.  
  115.  else
  116.     Call RegWriteValue(PATH1,1,2)
  117.  end if
  118. End Sub
  119.  
  120. Sub WriteIt_2(ITM,PATH1)
  121.  b=GetUIElementEx(ITM)
  122.  if b=true then
  123.     Call RegWriteValue(PATH1,1,2)
  124.  else
  125.     Call RegWriteValue(PATH1,0,2)
  126.  end if
  127. end Sub
  128.  
  129. Sub WriteIt_3(ITM,PATH1)
  130.  b=GetUIElementEx(ITM)
  131.  if b=true then
  132.     Call RegWriteValue(PATH1,"YES",1)
  133.  else
  134.     Call RegWriteValue(PATH1,"NO",1)
  135.  end if
  136. End Sub